home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / util / pack / gzip107p.lha / gzip.diff
Text File  |  1993-04-13  |  14KB  |  574 lines
  1. diff --recursive --minimal --unified --new-file Old/SCOptions SCOptions
  2. --- Old/SCOptions
  3. +++ SCOptions    Tue Apr 13 15:29:16 1993
  4. @@ -0,0 +1,32 @@
  5. +Ansi
  6. +Batch
  7. +Data=Far
  8. +Error=All
  9. +ErrorRexx
  10. +IncludeDir=A20:
  11. +MemSize=Huge
  12. +Modified
  13. +NoIcons
  14. +NoMultipleIncludes
  15. +NoStackCheck
  16. +OnError=Continue
  17. +Optimize
  18. +OptimizerComplexity=6
  19. +OptimizerDepth=6
  20. +OptimizerInlineLocal
  21. +OptimizerRecurDepth=6
  22. +OptimizerTime
  23. +OptGo
  24. +OptPeep
  25. +Parameters=Registers
  26. +SmallCode
  27. +Startup=c
  28. +Strict
  29. +StringMerge
  30. +StripDebug
  31. +Verbose
  32. +Define USE_BUILTIN_MATH
  33. +Define AMIGA
  34. +Define STDC_HEADERS
  35. +Ignore 149
  36. +Ignore 178
  37. diff --recursive --minimal --unified --new-file Old/SMakefile SMakefile
  38. --- Old/SMakefile
  39. +++ SMakefile    Tue Apr 13 15:29:16 1993
  40. @@ -0,0 +1,59 @@
  41. +# Makefile for gzip (GNU zip)    -*- Indented-Text -*-
  42. +# This Makefile is for SAS/C 6.2 on the Amiga
  43. +# Made by Carsten Steger (carsten.steger@informatik.tu-muenchen.de)
  44. +# Modified by Jörg Plate <Joerg.Plate@Informatk.Uni-Oldenburg.de>
  45. +
  46. +# Some notes on gzip for the Amiga:
  47. +# Due to a broken implementation of readdir() in the SAS/C 6.2 library
  48. +# you should not use gzip -r on a directory in the RAM-Disk. To zip all
  49. +# files in a directory 'dir' in the RAM-Disk use something like
  50. +# gzip ram:dir/#? ram:dir/#?/#? ...
  51. +# where the number of '#?'s reflects the depth of the directory 'dir'.
  52. +#
  53. +# Alas, the program has it's full functionality only if you have
  54. +# Kickstart 2.0 or higher installed. This affects the expansion of
  55. +# wildcards and the preservation of file access times. You should use
  56. +# a shell that does wildcard expansion under Kickstart 1.3.
  57. +
  58. +CC = sc
  59. +
  60. +#OBJS = gzip.o zip.o deflate.o trees.o bits.o unzip.o inflate.o util.o \
  61. +#       crypt.o lzw.o unlzw.o unpack.o getopt.o alloca.o tailor.o match.o
  62. +
  63. +OBJS = gzip.o zip.o deflate.o trees.o bits.o unzip.o inflate.o util.o \
  64. +lzw.o unlzw.o unpack.o getopt.o alloca.o tailor.o match.o
  65. +
  66. +.c.o:
  67. +    $(CC) $<
  68. +
  69. +.a.o:
  70. +    $(CC) $<
  71. +
  72. +all: gzip
  73. +
  74. +gzip: $(OBJS)
  75. +    $(CC) link $(OBJS) TO $@
  76. +
  77. +gzip.o: gzip.c gzip.h tailor.h revision.h lzw.h getopt.h
  78. +zip.o: zip.c gzip.h tailor.h crypt.h
  79. +deflate.o: deflate.c gzip.h tailor.h
  80. +bits.o: bits.c gzip.h tailor.h crypt.h
  81. +unzip.o: unzip.c gzip.h tailor.h crypt.h
  82. +inflate.o: inflate.c gzip.h tailor.h
  83. +util.o: util.c gzip.h tailor.h crypt.h
  84. +lzw.o: lzw.c lzw.h gzip.h tailor.h
  85. +unlzw.o: unlzw.c gzip.h tailor.h revision.h lzw.h
  86. +unpack.o: unpack.c gzip.h tailor.h
  87. +crypt.o: crypt.c gzip.h tailor.h
  88. +getopt.o: getopt.c getopt.h
  89. +tailor.o: tailor.c
  90. +
  91. +alloca.o: alloca.c
  92. +    $(CC) DEF=STACK_DIRECTION=-1 $<
  93. +
  94. +match.o: match.a
  95. +
  96. +# Compile trees.c without optimization (produces incorrect code)
  97. +
  98. +trees.o: trees.c gzip.h tailor.h
  99. +    $(CC) noopt $<
  100. diff --recursive --minimal --unified --new-file Old/alloca.c alloca.c
  101. --- Old/alloca.c    Tue Apr 13 15:31:50 1993
  102. +++ alloca.c    Tue Apr 13 15:28:46 1993
  103. @@ -56,8 +56,14 @@
  104.  
  105.  #define    NULL    0            /* null pointer constant */
  106.  
  107. +#ifdef __SASC_60
  108. +pointer alloca (unsigned);
  109. +extern void    free(pointer);
  110. +extern pointer    xmalloc(unsigned);
  111. +#else
  112.  extern void    free();
  113.  extern pointer    xmalloc();
  114. +#endif
  115.  
  116.  /*
  117.      Define STACK_DIRECTION if you know the direction of stack
  118. --- Old/getopt.c    Tue Apr 13 15:31:53 1993
  119. +++ getopt.c    Tue Apr 13 16:31:19 1993
  120. @@ -19,6 +19,18 @@
  121.     along with this program; if not, write to the Free Software
  122.     Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  123.  
  124. +#ifdef __SASC_60
  125. +static char * my_index(char const * string, int chr);
  126. +static void my_bcopy(char * from, char * to, int size);
  127. +static void exchange(char ** argv);
  128. +int _getopt_internal(int , char * const * , char const * , struct option const * , int * , int );
  129. +int getopt(int argc, char * const * argv, char const * optstring);
  130. +int getopt_long(int , char * const * , char const * , struct option const * , int * );
  131. +int getopt_long_only(int , char * const * , char const * , struct option const * , int * );
  132. +extern void *alloca (int);
  133. +extern char *getenv (char *);
  134. +#endif
  135. +
  136.  /* AIX requires this to be the first thing in the file.  */
  137.  #ifdef __GNUC__
  138.  #define alloca __builtin_alloca
  139. @@ -29,8 +41,10 @@
  140.  #ifdef _AIX
  141.   #pragma alloca
  142.  #else
  143. +#ifndef __SASC_60
  144.  char *alloca ();
  145.  #endif
  146. +#endif
  147.  #endif /* alloca.h */
  148.  #endif /* not __GNUC__ */
  149.  
  150. @@ -152,6 +166,12 @@
  151.  #define    my_bcopy(src, dst, n)    memcpy ((dst), (src), (n))
  152.  #else
  153.  
  154. +#ifdef __SASC_60
  155. +#include <string.h>
  156. +#define    my_index strchr
  157. +#define    my_bcopy(src, dst, n) memcpy ((dst), (src), (n))
  158. +#else
  159. +
  160.  /* Avoid depending on library functions or files
  161.     whose names are inconsistent.  */
  162.  
  163. @@ -180,6 +200,7 @@
  164.    for (i = 0; i < size; i++)
  165.      to[i] = from[i];
  166.  }
  167. +#endif
  168.  #endif                /* GNU C library.  */
  169.  
  170.  /* Handle permutation of arguments.  */
  171. diff --recursive --minimal --unified --new-file Old/match.a match.a
  172. --- Old/match.a
  173. +++ match.a    Tue Apr 13 15:29:16 1993
  174. @@ -0,0 +1,175 @@
  175. +; match.a -- optional optimized asm version of longest match in deflate.c
  176. +; Copyright (C) 1992-1993 Jean-loup Gailly
  177. +; This is free software; you can redistribute it and/or modify it under the
  178. +; terms of the GNU General Public License, see the file COPYING.
  179. + 
  180. +; $Id: match.a,v 1.1 1993/03/11 16:05:57 jloup Exp $
  181. +;
  182. +; Adapted for the Amiga by Carsten Steger <stegerc@informatik.tu-muenchen.de>
  183. +; using the code in match.S.
  184. +; The major change in this code consists of removing all unaligned
  185. +; word accesses, because they cause 68000-based Amigas to crash.
  186. +; For maximum speed, UNALIGNED_OK can be defined in Makefile.sasc.
  187. +; The program will then only run on 68020-based Amigas, though.
  188. +;
  189. +; This code will run with registerized parameters too, unless SAS
  190. +; changes parameter passing conventions between new releases of SAS/C.
  191. +
  192. +
  193. +Cur_Match    reg    d0    ; Must be in d0!
  194. +Best_Len    reg    d1
  195. +Loop_Counter    reg    d2
  196. +Scan_Start    reg    d3
  197. +Scan_End    reg    d4
  198. +Limit        reg    d5
  199. +Chain_Length    reg    d6
  200. +Scan_Test    reg    d7
  201. +Scan        reg    a0
  202. +Match        reg    a1
  203. +Prev_Address    reg    a2
  204. +Scan_Ini    reg    a3
  205. +Match_Ini    reg    a4
  206. +
  207. +MAX_MATCH    equ    258
  208. +MIN_MATCH    equ    3
  209. +WSIZE        equ    32768
  210. +MAX_DIST    equ    WSIZE-MAX_MATCH-MIN_MATCH-1
  211. +
  212. +
  213. +    xref    _max_chain_length
  214. +    xref    _prev_length
  215. +    xref    _prev
  216. +    xref    _window
  217. +    xref    _strstart
  218. +    xref    _good_match
  219. +    xref    _match_start
  220. +    xref    _nice_match
  221. +
  222. +
  223. +    section match,code
  224. +
  225. +    xdef    _match_init
  226. +    xdef    @match_init
  227. +    xdef    _longest_match
  228. +    xdef    @longest_match
  229. +
  230. +
  231. +_match_init:
  232. +@match_init:
  233. +    rts
  234. +
  235. +
  236. +_longest_match:
  237. +    move.l    4(sp),Cur_Match
  238. +@longest_match:
  239. +    ifd    UNALIGNED_OK
  240. +    movem.l    d2-d6/a2-a4,-(sp)
  241. +    else
  242. +    movem.l    d2-d7/a2-a4,-(sp)
  243. +    endc
  244. +    move.l    _max_chain_length,Chain_Length
  245. +    move.l    _prev_length,Best_Len
  246. +    lea    _prev,Prev_Address
  247. +    lea    _window+MIN_MATCH,Match_Ini
  248. +    move.l    _strstart,Limit
  249. +    move.l    Match_Ini,Scan_Ini
  250. +    add.l    Limit,Scan_Ini
  251. +    subi.w    #MAX_DIST,Limit
  252. +    bhi.b    limit_ok
  253. +    moveq    #0,Limit
  254. +limit_ok:
  255. +    cmp.l    _good_match,Best_Len
  256. +    bcs.b    length_ok
  257. +    lsr.l    #2,Chain_Length
  258. +length_ok:
  259. +    subq.l    #1,Chain_Length
  260. +
  261. +    ifd    UNALIGNED_OK
  262. +
  263. +    move.w    -MIN_MATCH(Scan_Ini),Scan_Start
  264. +    move.w    -MIN_MATCH-1(Scan_Ini,Best_Len),Scan_End
  265. +
  266. +    else
  267. +
  268. +    move.b    -MIN_MATCH(Scan_Ini),Scan_Start
  269. +    lsl.w    #8,Scan_Start
  270. +    move.b    -MIN_MATCH+1(Scan_Ini),Scan_Start
  271. +    move.b    -MIN_MATCH-1(Scan_Ini,Best_Len),Scan_End
  272. +    lsl.w    #8,Scan_End
  273. +    move.b    -MIN_MATCH(Scan_Ini,Best_Len),Scan_End
  274. +
  275. +    endc
  276. +
  277. +    bra.b    do_scan
  278. +
  279. +long_loop:
  280. +
  281. +    ifd    UNALIGNED_OK
  282. +
  283. +    move.w    -MIN_MATCH-1(Scan_Ini,Best_Len),Scan_End
  284. +
  285. +    else
  286. +
  287. +    move.b    -MIN_MATCH-1(Scan_Ini,Best_Len),Scan_End
  288. +    lsl.w    #8,Scan_End
  289. +    move.b    -MIN_MATCH(Scan_Ini,Best_Len),Scan_End
  290. +
  291. +    endc
  292. +
  293. +short_loop:
  294. +    lsl.w    #1,Cur_Match
  295. +    move.w    0(Prev_Address,Cur_Match),Cur_Match
  296. +    cmp.w    Limit,Cur_Match
  297. +    dbls    Chain_Length,do_scan
  298. +    bra.b    return
  299. +
  300. +do_scan:
  301. +    move.l    Match_Ini,Match
  302. +    add.l    Cur_Match,Match
  303. +
  304. +    ifd    UNALIGNED_OK
  305. +
  306. +    cmp.w    -MIN_MATCH-1(Match,Best_Len),Scan_End
  307. +    bne.b    short_loop
  308. +    cmp.w    -MIN_MATCH(Match),Scan_Start
  309. +    bne.b    short_loop
  310. +
  311. +    else
  312. +
  313. +    move.b    -MIN_MATCH-1(Match,Best_Len),Scan_Test
  314. +    lsl.w    #8,Scan_Test
  315. +    move.b    -MIN_MATCH(Match,Best_Len),Scan_Test
  316. +    cmp.w    Scan_Test,Scan_End
  317. +    bne.b    short_loop
  318. +    move.b    -MIN_MATCH(Match),Scan_Test
  319. +    lsl.w    #8,Scan_Test
  320. +    move.b    -MIN_MATCH+1(Match),Scan_Test
  321. +    cmp.w    Scan_Test,Scan_Start
  322. +    bne.b    short_loop
  323. +
  324. +    endc
  325. +
  326. +    move.w    #(MAX_MATCH-MIN_MATCH),Loop_Counter
  327. +    move.l    Scan_Ini,Scan
  328. +scan_loop:
  329. +    cmpm.b    (Match)+,(Scan)+
  330. +    dbne    Loop_Counter,scan_loop
  331. +
  332. +    sub.l    Scan_Ini,Scan
  333. +    addq.l    #(MIN_MATCH-1),Scan
  334. +    cmp.l    Best_Len,Scan
  335. +    bls.b    short_loop
  336. +    move.l    Scan,Best_Len
  337. +    move.l    Cur_Match,_match_start
  338. +    cmp.l    _nice_match,Best_Len
  339. +    bcs.b    long_loop
  340. +return:
  341. +    move.l    Best_Len,d0
  342. +    ifd    UNALIGNED_OK
  343. +    movem.l    (sp)+,d2-d6/a2-a4
  344. +    else
  345. +    movem.l    (sp)+,d2-d7/a2-a4
  346. +    endc
  347. +    rts
  348. +
  349. +    end
  350. diff --recursive --minimal --unified --new-file Old/tailor.c tailor.c
  351. --- Old/tailor.c
  352. +++ tailor.c    Tue Apr 13 15:28:50 1993
  353. @@ -0,0 +1,183 @@
  354. +/* tailor.c -- target dependent functions
  355. + * Copyright (C) 1993 Carsten Steger (carsten.steger@informatik.tu-muenchen.de)
  356. + * This is free software; you can redistribute it and/or modify it under the
  357. + * terms of the GNU General Public License, see the file COPYING.
  358. + */
  359. +
  360. +/*
  361. + * This file contains Amiga specific functions for gzip.
  362. + */
  363. +
  364. +#include <stdio.h>
  365. +#include <stdlib.h>
  366. +#include <string.h>
  367. +#include <error.h>
  368. +#include <time.h>
  369. +#include <utime.h>
  370. +#include <exec/types.h>
  371. +#include <dos/dos.h>
  372. +#include <dos/dosextens.h>
  373. +#include <dos/dosasl.h>
  374. +#include <proto/dos.h>
  375. +
  376. +#define MAXPATH 1024
  377. +#define MAXARGS 512
  378. +
  379. +extern struct DosLibrary *DOSBase;
  380. +
  381. +extern void *xmalloc(unsigned int size);
  382. +
  383. +static char *expand_next_file (char *pattern);
  384. +static int in_prev_args (char *arg, char **argv, int argc);
  385. +extern void _expand_args (int *oargc, char ***oargv);
  386. +
  387. +
  388. +static char *expand_next_file (pattern)
  389. +     char *pattern;
  390. +{
  391. +  long err;
  392. +  char *pathname;
  393. +  static struct AnchorPath *an = NULL;
  394. +
  395. +  pathname = NULL;
  396. +  if (pattern == NULL)
  397. +    err = -1;
  398. +  else
  399. +    do
  400. +      {
  401. +        if (an == NULL)
  402. +          {
  403. +            an = xmalloc (sizeof (struct AnchorPath) + MAXPATH);
  404. +            memset (an, 0, sizeof (struct AnchorPath) + MAXPATH);
  405. +            an->ap_BreakBits = SIGBREAKF_CTRL_C;
  406. +            an->ap_Strlen = MAXPATH;
  407. +            an->ap_Flags = APF_DOWILD;
  408. +            err = MatchFirst (pattern, an);
  409. +          }
  410. +        else
  411. +          err = MatchNext (an);
  412. +
  413. +        pathname = an->ap_Buf;
  414. +      } while (err == 0 && pathname == NULL);
  415. +
  416. +  if (err)
  417. +    {
  418. +      MatchEnd (an);
  419. +      free (an);
  420. +      an = NULL;
  421. +      return NULL;
  422. +    }
  423. +  else
  424. +    return pathname;
  425. +}
  426. +
  427. +
  428. +static int in_prev_args (arg, argv, argc)
  429. +     char *arg, **argv;
  430. +     int argc;
  431. +{
  432. +  int i, is_in_args;
  433. +
  434. +  is_in_args = 0;
  435. +  for (i = 1; i < argc - 1; i++)
  436. +    if (stricmp (arg, argv[i]) == 0)
  437. +      is_in_args = 1;
  438. +  return is_in_args;
  439. +}
  440. +
  441. +
  442. +void _expand_args (oargc, oargv)
  443. +     int *oargc;
  444. +     char ***oargv;
  445. +{
  446. +  int i;
  447. +  char *str, **argv;
  448. +  static char buf[MAXPATH];
  449. +  int argc, no_match_at_all, num_matches, contains_wildcards;
  450. +
  451. +  /* With Kickstart 1.3 wildcards can't be expanded. */
  452. +  if (DOSBase->dl_lib.lib_Version < 37) return;
  453. +
  454. +  no_match_at_all = 1;
  455. +  contains_wildcards = 0;
  456. +  argc = 0;
  457. +  argv = xmalloc (MAXARGS * sizeof (char *));
  458. +
  459. +  argv[argc++] = (*oargv)[0];
  460. +  for (i = 1; i < *oargc; i++)
  461. +    {
  462. +      if (ParsePattern ((*oargv)[i], buf, MAXPATH))
  463. +        {
  464. +          contains_wildcards = 1;
  465. +          num_matches = 0;
  466. +          while (str = expand_next_file ((*oargv)[i]))
  467. +            if (argc >= MAXARGS)
  468. +              {
  469. +                expand_next_file (NULL);
  470. +                fprintf (stderr,"Too many files.\n");
  471. +                exit (20);
  472. +              }
  473. +            else
  474. +              {
  475. +                /* Avoid duplicate entries */
  476. +                if (!in_prev_args (str, argv, argc))
  477. +                  {
  478. +                    argv[argc++] = strdup (str);
  479. +                    num_matches++;
  480. +                  }
  481. +              }
  482. +          if (num_matches != 0)
  483. +            no_match_at_all = 0;
  484. +        }
  485. +      else
  486. +        if (argc >= MAXARGS)
  487. +          {
  488. +            fprintf (stderr,"Too many files.\n");
  489. +            exit (20);
  490. +          }
  491. +        else
  492. +          {
  493. +            if (!in_prev_args ((*oargv)[i], argv, argc))
  494. +              argv[argc++] = (*oargv)[i];
  495. +          }
  496. +    }
  497. +  *oargc = argc;
  498. +  *oargv = argv;
  499. +  if (no_match_at_all && contains_wildcards) {
  500. +    fprintf (stderr,"No match.\n");
  501. +    exit (20);
  502. +  }
  503. +}
  504. +
  505. +
  506. +int utime (path, times)
  507. +     char *path;
  508. +     struct utimbuf *times;
  509. +{
  510. +  struct DateStamp date;
  511. +  LONG error;
  512. +  time_t modtime;
  513. +
  514. +  /* With Kickstart 1.3 setting the filedate could be done, I guess.
  515. +   * Maybe someone else will implement and test the code for this
  516. +   * case (I don't have Kickstart 1.3). */
  517. +  if (DOSBase->dl_lib.lib_Version < 37) return 0;
  518. +
  519. +  /* Amiga dates are counted from 1. Jan 1978 as opposed to 1. Jan 1970
  520. +   * on Unix. Therefore we have to subtract 2922 days (8*365+2). We also
  521. +   * have to subtract the value of __timezone since SAS/C uses "CST+06"
  522. +   * as the default value. */
  523. +  modtime = times->modtime - __timezone;
  524. +  date.ds_Days = (modtime / 86400) - 2922;
  525. +  modtime %= 86400;
  526. +  date.ds_Minute = modtime / 60;
  527. +  modtime %= 60;
  528. +  date.ds_Tick = modtime * TICKS_PER_SECOND;
  529. +  error = SetFileDate (path, &date);
  530. +  if (error == DOSFALSE)
  531. +    {
  532. +      errno = EOSERR;
  533. +      return -1;
  534. +    }
  535. +  return 0;
  536. +}
  537. diff --recursive --minimal --unified --new-file Old/unlzw.c unlzw.c
  538. --- Old/unlzw.c    Tue Apr 13 15:32:04 1993
  539. +++ unlzw.c    Tue Apr 13 15:28:50 1993
  540. @@ -146,12 +146,12 @@
  541.  };
  542.  
  543.  #if BYTEORDER == 4321 && NOALLIGN == 1
  544. -#  define input(b,o,c,n,m){ \
  545. +#  define input(b,o,c,n,m) { \
  546.       (c) = (*(long *)(&(b)[(o)>>3])>>((o)&0x7))&(m); \
  547.       (o) += (n); \
  548.     }
  549.  #else
  550. -#  define input(b,o,c,n,m){ \
  551. +#  define input(b,o,c,n,m) { \
  552.       REG1 char_type *p = &(b)[(o)>>3]; \
  553.       (c) = ((((long)(p[0]))|((long)(p[1])<<8)| \
  554.       ((long)(p[2])<<16))>>((o)&0x7))&(m); \
  555. diff --recursive --minimal --unified --new-file Old/utime.h utime.h
  556. --- Old/utime.h
  557. +++ utime.h    Tue Apr 13 15:29:08 1993
  558. @@ -0,0 +1,15 @@
  559. +#ifndef _UTIME_H
  560. +#define _UTIME_H 1
  561. +
  562. +#ifndef _TIME_H
  563. +#include <time.h>
  564. +#endif
  565. +
  566. +struct utimbuf {
  567. +  time_t actime;
  568. +  time_t modtime;
  569. +};
  570. +
  571. +extern int utime (char *path, struct utimbuf *times);
  572. +
  573. +#endif
  574.